home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
smfdoor
/
frmprefe.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1999-09-11
|
3KB
|
102 lines
VERSION 5.00
Begin VB.Form frmPreferences
BackColor = &H80000007&
Caption = "DoorWays Preferences"
ClientHeight = 2355
ClientLeft = 60
ClientTop = 405
ClientWidth = 4680
Icon = "frmPreferences.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2355
ScaleWidth = 4680
StartUpPosition = 3 'Windows Default
Begin VB.CommandButton cmdChangeHomePage
Caption = "Change Home Page"
Height = 375
Left = 2400
TabIndex = 5
Top = 1320
Width = 2055
End
Begin VB.CommandButton cmdDeleteRecentsites
Caption = "Delete Recent Sites"
Height = 375
Left = 240
TabIndex = 4
Top = 1320
Width = 2055
End
Begin VB.CommandButton cmdDone
Caption = "Done"
Height = 375
Left = 1560
TabIndex = 3
Top = 1800
Width = 1455
End
Begin VB.CheckBox Check1
BackColor = &H00000040&
Caption = "Check box if you would like to turn off the opening and closing scroll feature."
ForeColor = &H000000FF&
Height = 375
Left = 720
TabIndex = 2
Top = 840
Value = 1 'Checked
Width = 3135
End
Begin VB.TextBox txtHomePage
Height = 285
Left = 1080
TabIndex = 0
Top = 360
Width = 3495
End
Begin VB.Label lblHomePage
BackColor = &H00000000&
Caption = "Home Page:"
ForeColor = &H000000FF&
Height = 255
Left = 120
TabIndex = 1
Top = 360
Width = 975
End
Attribute VB_Name = "frmPreferences"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Check1_Click()
Open App.Path + "\StartUpScroll" For Output As #1
opeaningscroll = Check1.Value
Write #1, opeaningscroll
Close #1
End Sub
Private Sub cmdChangeHomePage_Click()
Open App.Path + "\homepage" For Output As #1
homepage = txtHomePage.Text
Write #1, homepage
Close #1
End Sub
Private Sub cmdDeleteRecentsites_Click()
frmDoorToTheNet.txtAddress.Clear
Open App.Path + "\RECENT" For Output As #1
Close #1
End Sub
Private Sub cmdDone_Click()
frmPreferences.Hide
End Sub
Private Sub Form_Load()
Open App.Path + "\StartUpScroll" For Input As #1
Input #1, opeaningscroll
Close #1
Open App.Path + "\HomePage" For Input As #1
Input #1, homepage
Close #1
txtHomePage.Text = homepage
Check1.Value = opeaningscroll
End Sub